/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / _compint / compnd2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e 20 f4 20 3e | 20 3c 57 69 6d 70 53 79 |.... . >| <WimpSy|
|00000010| 73 24 44 69 72 3e 2e 43 | 6f 6d 70 6e 64 31 0d 00 |s$Dir>.C|ompnd1..|
|00000020| 14 22 20 f4 20 43 6f 70 | 79 72 69 67 68 74 20 45 |." . Cop|yright E|
|00000030| 2e 46 2e 4c 6f 72 64 20 | 31 30 2f 31 31 2f 38 35 |.F.Lord |10/11/85|
|00000040| 0d 00 1e 23 20 f4 20 43 | 6f 6d 70 6f 75 6e 64 20 |...# . C|ompound |
|00000050| 49 6e 74 65 72 65 73 74 | 20 43 61 6c 63 75 6c 61 |Interest| Calcula|
|00000060| 74 6f 72 0d 00 28 09 20 | eb 20 31 31 0d 00 32 0f |tor..(. |. 11..2.|
|00000070| 20 ee 20 85 20 e5 20 8d | 74 46 41 0d 00 3c 17 20 | . . . .|tFA..<. |
|00000080| 66 6c 74 6e 3d 30 3a 6c | 6d 70 3d 30 3a 72 65 67 |fltn=0:l|mp=0:reg|
|00000090| 3d 30 0d 00 46 54 20 6c | 75 6d 70 73 75 6d 24 3d |=0..FT l|umpsum$=|
|000000a0| 22 30 22 3a 79 65 61 72 | 24 3d 22 30 22 3a 66 75 |"0":year|$="0":fu|
|000000b0| 74 76 61 6c 24 3d 22 30 | 22 3a 52 24 3d 22 30 22 |tval$="0|":R$="0"|
|000000c0| 3a 6e 24 3d 22 30 22 3a | 66 6c 74 6e 24 3d 22 30 |:n$="0":|fltn$="0|
|000000d0| 22 3a 72 65 67 6c 61 72 | 24 3d 22 30 22 3a 6e 70 |":reglar|$="0":np|
|000000e0| 61 24 3d 22 30 22 0d 00 | 50 0e 20 40 25 3d 26 32 |a$="0"..|P. @%=&2|
|000000f0| 30 32 30 38 0d 00 5a 06 | 20 f5 0d 00 64 06 20 db |0208..Z.| ...d. .|
|00000100| 0d 00 6e 0b 20 f2 74 69 | 74 6c 65 0d 00 78 04 0d |..n. .ti|tle..x..|
|00000110| 00 82 21 20 f1 8a 30 2c | 35 29 22 4c 75 6d 70 73 |..! ..0,|5)"Lumps|
|00000120| 75 6d 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 73 22 |um calcu|lations"|
|00000130| 0d 00 8c 2d 20 f1 8a 30 | 2c 37 29 22 20 20 31 2e |...- ..0|,7)"  1.|
|00000140| 20 43 61 6c 63 75 6c 61 | 74 65 20 65 6e 64 20 6f | Calcula|te end o|
|00000150| 66 20 74 65 72 6d 20 76 | 61 6c 75 65 22 0d 00 96 |f term v|alue"...|
|00000160| 2b 20 f1 8a 30 2c 38 29 | 22 20 20 32 2e 20 43 61 |+ ..0,8)|"  2. Ca|
|00000170| 6c 63 75 6c 61 74 65 20 | 49 6e 74 65 72 65 73 74 |lculate |Interest|
|00000180| 20 72 61 74 65 20 20 22 | 0d 00 a0 2a 20 f1 8a 30 | rate  "|...* ..0|
|00000190| 2c 39 29 22 20 20 33 2e | 20 43 61 6c 63 75 6c 61 |,9)"  3.| Calcula|
|000001a0| 74 65 20 73 74 61 72 74 | 69 6e 67 20 76 61 6c 75 |te start|ing valu|
|000001b0| 65 22 0d 00 aa 2a 20 f1 | 8a 30 2c 31 30 29 22 20 |e"...* .|.0,10)" |
|000001c0| 20 34 2e 20 43 61 6c 63 | 75 6c 61 74 65 20 74 65 | 4. Calc|ulate te|
|000001d0| 72 6d 20 69 6e 20 79 65 | 61 72 73 22 0d 00 b4 29 |rm in ye|ars"...)|
|000001e0| 20 f1 8a 30 2c 31 32 29 | 22 52 65 67 75 6c 61 72 | ..0,12)|"Regular|
|000001f0| 20 53 61 76 69 6e 67 20 | 63 61 6c 63 75 6c 61 74 | Saving |calculat|
|00000200| 69 6f 6e 73 22 0d 00 be | 2e 20 f1 8a 30 2c 31 34 |ions"...|. ..0,14|
|00000210| 29 22 20 20 35 2e 20 43 | 61 6c 63 75 6c 61 74 65 |)"  5. C|alculate|
|00000220| 20 65 6e 64 20 6f 66 20 | 74 65 72 6d 20 76 61 6c | end of |term val|
|00000230| 75 65 22 0d 00 c8 2c 20 | f1 8a 30 2c 31 35 29 22 |ue"..., |..0,15)"|
|00000240| 20 20 36 2e 20 43 61 6c | 63 75 6c 61 74 65 20 49 |  6. Cal|culate I|
|00000250| 6e 74 65 72 65 73 74 20 | 72 61 74 65 20 20 22 0d |nterest |rate  ".|
|00000260| 00 d2 2b 20 f1 8a 30 2c | 31 36 29 22 20 20 37 2e |..+ ..0,|16)"  7.|
|00000270| 20 43 61 6c 63 75 6c 61 | 74 65 20 73 74 61 72 74 | Calcula|te start|
|00000280| 69 6e 67 20 76 61 6c 75 | 65 22 0d 00 dc 2a 20 f1 |ing valu|e"...* .|
|00000290| 8a 30 2c 31 37 29 22 20 | 20 38 2e 20 53 65 74 20 |.0,17)" | 8. Set |
|000002a0| 76 61 6c 75 65 20 6f 66 | 20 69 6e 66 6c 61 74 69 |value of| inflati|
|000002b0| 6f 6e 20 22 0d 00 e6 35 | 20 f1 8a 30 2c 31 38 29 |on "...5| ..0,18)|
|000002c0| 22 20 20 39 2e 20 43 61 | 6c 63 75 6c 61 74 65 20 |"  9. Ca|lculate |
|000002d0| 65 66 66 65 63 74 69 76 | 65 20 69 6e 74 65 72 65 |effectiv|e intere|
|000002e0| 73 74 20 72 61 74 65 20 | 22 0d 00 f0 1f 20 f1 8a |st rate |".... ..|
|000002f0| 30 2c 31 39 29 22 20 20 | 30 2e 20 45 6e 64 20 70 |0,19)"  |0. End p|
|00000300| 72 6f 67 72 61 6d 20 22 | 0d 00 fa 34 20 f1 8a 30 |rogram "|...4 ..0|
|00000310| 2c 32 32 29 22 43 75 72 | 72 65 6e 74 20 76 61 6c |,22)"Cur|rent val|
|00000320| 75 65 20 6f 66 20 69 6e | 66 6c 61 74 69 6f 6e 20 |ue of in|flation |
|00000330| 22 3b 66 6c 74 6e 24 3b | 22 20 25 22 0d 01 04 23 |";fltn$;|" %"...#|
|00000340| 20 f1 8a 30 2c 32 34 29 | 22 45 6e 74 65 72 20 63 | ..0,24)|"Enter c|
|00000350| 68 6f 69 63 65 20 22 3b | 3a 63 68 63 24 3d be 0d |hoice ";|:chc$=..|
|00000360| 01 0e 06 20 db 0d 01 18 | 27 20 e7 20 63 68 63 24 |... ....|' . chc$|
|00000370| 3d 22 31 22 20 6c 6d 70 | 3d 31 3a f2 66 75 74 75 |="1" lmp|=1:.futu|
|00000380| 72 65 76 61 6c 3a f2 70 | 72 69 6e 74 0d 01 22 26 |reval:.p|rint.."&|
|00000390| 20 e7 20 63 68 63 24 3d | 22 32 22 20 6c 6d 70 3d | . chc$=|"2" lmp=|
|000003a0| 31 3a f2 69 6e 74 65 72 | 65 73 74 3a f2 70 72 69 |1:.inter|est:.pri|
|000003b0| 6e 74 0d 01 2c 26 20 e7 | 20 63 68 63 24 3d 22 33 |nt..,& .| chc$="3|
|000003c0| 22 20 6c 6d 70 3d 31 3a | f2 73 74 61 72 74 76 61 |" lmp=1:|.startva|
|000003d0| 6c 3a f2 70 72 69 6e 74 | 0d 01 36 26 20 e7 20 63 |l:.print|..6& . c|
|000003e0| 68 63 24 3d 22 34 22 20 | 6c 6d 70 3d 31 3a f2 66 |hc$="4" |lmp=1:.f|
|000003f0| 69 6e 64 74 65 72 6d 3a | f2 70 72 69 6e 74 0d 01 |indterm:|.print..|
|00000400| 40 27 20 e7 20 63 68 63 | 24 3d 22 35 22 20 72 65 |@' . chc|$="5" re|
|00000410| 67 3d 31 3a f2 72 65 67 | 65 6e 64 76 61 6c 3a f2 |g=1:.reg|endval:.|
|00000420| 70 72 69 6e 74 0d 01 4a | 29 20 e7 20 63 68 63 24 |print..J|) . chc$|
|00000430| 3d 22 36 22 20 72 65 67 | 3d 31 3a f2 72 65 67 69 |="6" reg|=1:.regi|
|00000440| 6e 74 65 72 65 73 74 3a | f2 70 72 69 6e 74 0d 01 |nterest:|.print..|
|00000450| 54 28 20 e7 20 63 68 63 | 24 3d 22 37 22 20 72 65 |T( . chc|$="7" re|
|00000460| 67 3d 31 3a f2 72 65 67 | 73 74 61 72 74 76 6c 3a |g=1:.reg|startvl:|
|00000470| f2 70 72 69 6e 74 0d 01 | 5e 1a 20 e7 20 63 68 63 |.print..|^. . chc|
|00000480| 24 3d 22 38 22 20 f2 69 | 6e 66 6c 61 74 69 6f 6e |$="8" .i|nflation|
|00000490| 0d 01 68 21 20 e7 20 63 | 68 63 24 3d 22 39 22 20 |..h! . c|hc$="9" |
|000004a0| 6c 6d 70 3d 31 3a f2 65 | 66 66 65 63 74 72 61 74 |lmp=1:.e|ffectrat|
|000004b0| 65 0d 01 72 0f 20 fd 20 | 63 68 63 24 3d 22 30 22 |e..r. . |chc$="0"|
|000004c0| 0d 01 7c 11 20 db 3a eb | 37 3a 40 25 3d 31 30 3a |..|. .:.|7:@%=10:|
|000004d0| e0 0d 01 86 1a 20 e7 20 | 9f 3c 3e 31 37 20 8c 20 |..... . |.<>17 . |
|000004e0| 8d 74 50 41 20 8b 20 8d | 44 5a 40 0d 01 90 22 20 |.tPA . .|DZ@..." |
|000004f0| ee 20 85 20 87 3a f6 3a | f1 22 20 40 20 6c 69 6e |. . .:.:|." @ lin|
|00000500| 65 20 22 3b 9e 3a 40 25 | 3d 31 30 3a e0 0d 01 9a |e ";.:@%|=10:....|
|00000510| 05 3a 0d 01 a4 10 dd 20 | f2 66 75 74 75 72 65 76 |.:..... |.futurev|
|00000520| 61 6c 0d 01 ae 0f 20 f2 | 65 6e 74 65 72 6c 75 6d |al.... .|enterlum|
|00000530| 70 0d 01 b8 0f 20 f2 65 | 6e 74 65 72 74 65 72 6d |p.... .e|nterterm|
|00000540| 0d 01 c2 0f 20 f2 65 6e | 74 65 72 72 61 74 65 0d |.... .en|terrate.|
|00000550| 01 cc 0f 20 f2 65 6e 74 | 65 72 63 6f 6d 70 0d 01 |... .ent|ercomp..|
|00000560| d6 2e 20 66 75 74 76 61 | 6c 3d 28 28 31 2b 28 52 |.. futva|l=((1+(R|
|00000570| 2f 28 6e 2a 31 30 30 29 | 29 29 5e 28 79 65 61 72 |/(n*100)|))^(year|
|00000580| 2a 6e 29 29 2a 6c 75 6d | 70 73 75 6d 0d 01 e0 29 |*n))*lum|psum...)|
|00000590| 20 64 65 66 6c 61 74 65 | 3d 28 28 31 2d 28 66 6c | deflate|=((1-(fl|
|000005a0| 74 6e 2f 31 30 30 29 29 | 5e 79 65 61 72 29 2a 66 |tn/100))|^year)*f|
|000005b0| 75 74 76 61 6c 0d 01 ea | 28 20 72 65 61 6c 6f 67 |utval...|( realog|
|000005c0| 61 72 6d 3d 28 ab 28 64 | 65 66 6c 61 74 65 2f 6c |arm=(.(d|eflate/l|
|000005d0| 75 6d 70 73 75 6d 29 29 | 2f 79 65 61 72 0d 01 f4 |umpsum))|/year...|
|000005e0| 1f 20 72 65 61 6c 52 3d | 31 30 30 2a 28 31 30 5e |. realR=|100*(10^|
|000005f0| 72 65 61 6c 6f 67 61 72 | 6d 2d 31 29 0d 01 fe 05 |realogar|m-1)....|
|00000600| e1 0d 02 08 05 3a 0d 02 | 12 0f dd 20 f2 69 6e 74 |.....:..|... .int|
|00000610| 65 72 65 73 74 0d 02 1c | 0f 20 f2 65 6e 74 65 72 |erest...|. .enter|
|00000620| 6c 75 6d 70 0d 02 26 0f | 20 f2 65 6e 74 65 72 74 |lump..&.| .entert|
|00000630| 65 72 6d 0d 02 30 15 20 | f2 65 6e 74 65 72 66 75 |erm..0. |.enterfu|
|00000640| 74 76 61 6c 28 31 30 29 | 0d 02 3a 24 20 6c 6f 67 |tval(10)|..:$ log|
|00000650| 61 72 6d 3d 28 ab 28 66 | 75 74 76 61 6c 2f 6c 75 |arm=(.(f|utval/lu|
|00000660| 6d 70 73 75 6d 29 29 2f | 79 65 61 72 0d 02 44 18 |mpsum))/|year..D.|
|00000670| 20 52 3d 31 30 30 2a 28 | 31 30 5e 6c 6f 67 61 72 | R=100*(|10^logar|
|00000680| 6d 2d 31 29 0d 02 4e 29 | 20 64 65 66 6c 61 74 65 |m-1)..N)| deflate|
|00000690| 3d 28 28 31 2d 28 66 6c | 74 6e 2f 31 30 30 29 29 |=((1-(fl|tn/100))|
|000006a0| 5e 79 65 61 72 29 2a 66 | 75 74 76 61 6c 0d 02 58 |^year)*f|utval..X|
|000006b0| 28 20 72 65 61 6c 6f 67 | 61 72 6d 3d 28 ab 28 64 |( realog|arm=(.(d|
|000006c0| 65 66 6c 61 74 65 2f 6c | 75 6d 70 73 75 6d 29 29 |eflate/l|umpsum))|
|000006d0| 2f 79 65 61 72 0d 02 62 | 1f 20 72 65 61 6c 52 3d |/year..b|. realR=|
|000006e0| 31 30 30 2a 28 31 30 5e | 72 65 61 6c 6f 67 61 72 |100*(10^|realogar|
|000006f0| 6d 2d 31 29 0d 02 6c 05 | e1 0d 02 76 05 3a 0d 02 |m-1)..l.|...v.:..|
|00000700| 80 0f dd 20 f2 73 74 61 | 72 74 76 61 6c 0d 02 8a |... .sta|rtval...|
|00000710| 0f 20 f2 65 6e 74 65 72 | 74 65 72 6d 0d 02 94 0f |. .enter|term....|
|00000720| 20 f2 65 6e 74 65 72 72 | 61 74 65 0d 02 9e 0f 20 | .enterr|ate.... |
|00000730| f2 65 6e 74 65 72 63 6f | 6d 70 0d 02 a8 15 20 f2 |.enterco|mp.... .|
|00000740| 65 6e 74 65 72 66 75 74 | 76 61 6c 28 31 35 29 0d |enterfut|val(15).|
|00000750| 02 b2 2e 20 6c 75 6d 70 | 73 75 6d 3d 66 75 74 76 |... lump|sum=futv|
|00000760| 61 6c 2f 28 28 31 2b 28 | 52 2f 28 6e 2a 31 30 30 |al/((1+(|R/(n*100|
|00000770| 29 29 29 5e 28 79 65 61 | 72 2a 6e 29 29 0d 02 bc |)))^(yea|r*n))...|
|00000780| 29 20 64 65 66 6c 61 74 | 65 3d 28 28 31 2d 28 66 |) deflat|e=((1-(f|
|00000790| 6c 74 6e 2f 31 30 30 29 | 29 5e 79 65 61 72 29 2a |ltn/100)|)^year)*|
|000007a0| 66 75 74 76 61 6c 0d 02 | c6 28 20 72 65 61 6c 6f |futval..|.( realo|
|000007b0| 67 61 72 6d 3d 28 ab 28 | 64 65 66 6c 61 74 65 2f |garm=(.(|deflate/|
|000007c0| 6c 75 6d 70 73 75 6d 29 | 29 2f 79 65 61 72 0d 02 |lumpsum)|)/year..|
|000007d0| d0 1f 20 72 65 61 6c 52 | 3d 31 30 30 2a 28 31 30 |.. realR|=100*(10|
|000007e0| 5e 72 65 61 6c 6f 67 61 | 72 6d 2d 31 29 0d 02 da |^realoga|rm-1)...|
|000007f0| 05 e1 0d 02 e4 05 3a 0d | 02 ee 0f dd 20 f2 66 69 |......:.|.... .fi|
|00000800| 6e 64 74 65 72 6d 0d 02 | f8 0f 20 f2 65 6e 74 65 |ndterm..|.. .ente|
|00000810| 72 6c 75 6d 70 0d 03 02 | 0f 20 f2 65 6e 74 65 72 |rlump...|. .enter|
|00000820| 72 61 74 65 0d 03 0c 0f | 20 f2 65 6e 74 65 72 63 |rate....| .enterc|
|00000830| 6f 6d 70 0d 03 16 15 20 | f2 65 6e 74 65 72 66 75 |omp.... |.enterfu|
|00000840| 74 76 61 6c 28 31 35 29 | 0d 03 20 31 20 79 78 6e |tval(15)|.. 1 yxn|
|00000850| 3d 28 ab 28 66 75 74 76 | 61 6c 2f 6c 75 6d 70 73 |=(.(futv|al/lumps|
|00000860| 75 6d 29 29 2f 28 ab 28 | 28 31 2b 28 52 2f 28 6e |um))/(.(|(1+(R/(n|
|00000870| 2a 31 30 30 29 29 29 29 | 29 0d 03 2a 0f 20 79 65 |*100))))|)..*. ye|
|00000880| 61 72 3d 79 78 6e 2f 6e | 0d 03 34 29 20 64 65 66 |ar=yxn/n|..4) def|
|00000890| 6c 61 74 65 3d 28 28 31 | 2d 28 66 6c 74 6e 2f 31 |late=((1|-(fltn/1|
|000008a0| 30 30 29 29 5e 79 65 61 | 72 29 2a 66 75 74 76 61 |00))^yea|r)*futva|
|000008b0| 6c 0d 03 3e 28 20 72 65 | 61 6c 6f 67 61 72 6d 3d |l..>( re|alogarm=|
|000008c0| 28 ab 28 64 65 66 6c 61 | 74 65 2f 6c 75 6d 70 73 |(.(defla|te/lumps|
|000008d0| 75 6d 29 29 2f 79 65 61 | 72 0d 03 48 1f 20 72 65 |um))/yea|r..H. re|
|000008e0| 61 6c 52 3d 31 30 30 2a | 28 31 30 5e 72 65 61 6c |alR=100*|(10^real|
|000008f0| 6f 67 61 72 6d 2d 31 29 | 0d 03 52 05 e1 0d 03 5c |ogarm-1)|..R....\|
|00000900| 05 3a 0d 03 66 0c dd 20 | f2 70 72 69 6e 74 0d 03 |.:..f.. |.print..|
|00000910| 70 06 20 db 0d 03 7a 0b | 20 f1 8a 30 2c 34 29 0d |p. ...z.| ..0,4).|
|00000920| 03 84 2b 20 f1 22 52 61 | 74 65 20 6f 66 20 69 6e |..+ ."Ra|te of in|
|00000930| 66 6c 61 74 69 6f 6e 20 | 20 20 20 20 3d 20 20 20 |flation |    =   |
|00000940| 22 66 6c 74 6e 3b 22 20 | 25 22 0d 03 8e 28 20 f1 |"fltn;" |%"...( .|
|00000950| 22 52 61 74 65 20 6f 66 | 20 69 6e 74 65 72 65 73 |"Rate of| interes|
|00000960| 74 20 20 20 20 20 20 3d | 20 20 20 22 52 3b 22 20 |t      =|   "R;" |
|00000970| 25 22 0d 03 98 06 20 f1 | 0d 03 a2 18 20 e7 20 6c |%".... .|.... . l|
|00000980| 6d 70 3d 31 20 8c 20 f2 | 6c 6d 70 70 72 69 6e 74 |mp=1 . .|lmpprint|
|00000990| 0d 03 ac 18 20 e7 20 72 | 65 67 3d 31 20 8c 20 f2 |.... . r|eg=1 . .|
|000009a0| 72 65 67 70 72 69 6e 74 | 0d 03 b6 30 20 f1 27 22 |regprint|...0 .'"|
|000009b0| 54 65 72 6d 20 6f 66 20 | 69 6e 76 65 73 74 6d 65 |Term of |investme|
|000009c0| 6e 74 20 20 20 20 3d 20 | 20 20 22 79 65 61 72 3b |nt    = |  "year;|
|000009d0| 22 20 59 65 61 72 73 22 | 0d 03 c0 29 20 f1 27 22 |" Years"|...) .'"|
|000009e0| 45 6e 64 20 6f 66 20 74 | 65 72 6d 20 76 61 6c 75 |End of t|erm valu|
|000009f0| 65 20 20 20 20 20 3d 20 | a3 20 22 66 75 74 76 61 |e     = |. "futva|
|00000a00| 6c 0d 03 ca 17 20 f1 3a | e7 20 72 65 67 3d 31 20 |l.... .:|. reg=1 |
|00000a10| 8c 20 e5 20 8d 64 68 43 | 0d 03 d4 2a 20 f1 27 22 |. . .dhC|...* .'"|
|00000a20| 44 65 66 6c 61 74 65 64 | 20 66 75 74 75 72 65 20 |Deflated| future |
|00000a30| 76 61 6c 75 65 20 3d 20 | a3 20 22 64 65 66 6c 61 |value = |. "defla|
|00000a40| 74 65 0d 03 de 2c 20 f1 | 22 52 65 61 6c 20 72 61 |te..., .|"Real ra|
|00000a50| 74 65 20 6f 66 20 69 6e | 74 65 72 65 73 74 20 3d |te of in|terest =|
|00000a60| 20 20 20 22 72 65 61 6c | 52 3b 22 20 25 22 0d 03 |   "real|R;" %"..|
|00000a70| e8 04 0d 03 f2 2c 20 f1 | 8a 30 2c 32 30 29 22 50 |....., .|.0,20)"P|
|00000a80| 52 45 53 53 20 61 6e 79 | 20 6b 65 79 20 74 6f 20 |RESS any| key to |
|00000a90| 63 6f 6e 74 69 6e 75 65 | 22 3b 3a 47 3d a5 0d 03 |continue|";:G=...|
|00000aa0| fc 05 e1 0d 04 06 05 3a | 0d 04 10 10 dd 20 f2 69 |.......:|..... .i|
|00000ab0| 6e 66 6c 61 74 69 6f 6e | 0d 04 1a 32 20 f1 8a 30 |nflation|...2 ..0|
|00000ac0| 2c 31 38 29 22 4e 6f 74 | 20 69 6d 70 6c 65 6d 65 |,18)"Not| impleme|
|00000ad0| 6e 74 65 64 20 77 69 74 | 68 20 72 65 67 75 6c 61 |nted wit|h regula|
|00000ae0| 72 20 73 61 76 69 6e 67 | 73 22 0d 04 24 6a 20 74 |r saving|s"..$j t|
|00000af0| 31 3d 31 32 3a 74 32 3d | 35 36 3a 71 24 3d 22 57 |1=12:t2=|56:q$="W|
|00000b00| 68 61 74 20 20 69 73 20 | 20 74 68 65 20 20 6e 65 |hat  is | the  ne|
|00000b10| 77 20 20 72 61 74 65 20 | 6f 66 20 69 6e 66 6c 61 |w  rate |of infla|
|00000b20| 74 69 6f 6e 20 28 25 29 | 20 22 3a 66 6c 74 6e 3d |tion (%)| ":fltn=|
|00000b30| a4 71 75 65 73 74 28 74 | 31 2c 74 32 2c 71 24 2c |.quest(t|1,t2,q$,|
|00000b40| 66 6c 74 6e 24 29 3a 66 | 6c 74 6e 24 3d c3 28 66 |fltn$):f|ltn$=.(f|
|00000b50| 6c 74 6e 29 0d 04 2e 05 | e1 0d 04 38 05 3a 0d 04 |ltn)....|...8.:..|
|00000b60| 42 11 dd 20 f2 65 66 66 | 65 63 74 72 61 74 65 0d |B.. .eff|ectrate.|
|00000b70| 04 4c 0f 20 f2 65 6e 74 | 65 72 72 61 74 65 0d 04 |.L. .ent|errate..|
|00000b80| 56 0f 20 f2 65 6e 74 65 | 72 63 6f 6d 70 0d 04 60 |V. .ente|rcomp..`|
|00000b90| 1d 20 65 66 66 65 63 52 | 3d 28 31 2b 28 52 2f 28 |. effecR|=(1+(R/(|
|00000ba0| 31 30 30 2a 6e 29 29 29 | 5e 6e 0d 04 61 1e 20 65 |100*n)))|^n..a. e|
|00000bb0| 66 66 65 63 74 69 76 65 | 52 3d 28 65 66 66 65 63 |ffective|R=(effec|
|00000bc0| 52 2d 31 29 2a 31 30 30 | 0d 04 6a 3e 20 f1 27 27 |R-1)*100|..j> .''|
|00000bd0| 22 45 66 66 65 63 74 69 | 76 65 20 20 72 61 74 65 |"Effecti|ve  rate|
|00000be0| 20 6f 66 20 20 69 6e 74 | 65 72 65 73 74 20 20 20 | of  int|erest   |
|00000bf0| 20 20 20 3d 20 22 3b 65 | 66 66 65 63 74 69 76 65 |   = ";e|ffective|
|00000c00| 52 3b 22 20 25 22 0d 04 | 74 2c 20 f1 8a 30 2c 32 |R;" %"..|t, ..0,2|
|00000c10| 30 29 22 50 52 45 53 53 | 20 61 6e 79 20 6b 65 79 |0)"PRESS| any key|
|00000c20| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 3b 3a 47 | to cont|inue";:G|
|00000c30| 3d a5 0d 04 7e 04 0d 04 | 88 05 e1 0d 04 92 05 3a |=...~...|.......:|
|00000c40| 0d 04 9c 10 dd 20 a4 79 | 65 73 6e 6f 28 61 24 29 |..... .y|esno(a$)|
|00000c50| 0d 04 a6 14 20 f1 61 24 | 3b 22 20 28 59 2f 4e 29 |.... .a$|;" (Y/N)|
|00000c60| 3f 20 22 3b 0d 04 b0 06 | 20 f5 0d 04 ba 16 20 72 |? ";....| ..... r|
|00000c70| 65 70 6c 79 24 3d bd 28 | a5 20 80 20 26 44 46 29 |eply$=.(|. . &DF)|
|00000c80| 0d 04 c4 1e 20 fd 20 72 | 65 70 6c 79 24 3d 22 4e |.... . r|eply$="N|
|00000c90| 22 20 84 20 72 65 70 6c | 79 24 3d 22 59 22 0d 04 |" . repl|y$="Y"..|
|00000ca0| ce 11 3d 28 72 65 70 6c | 79 24 3d 22 4e 22 29 0d |..=(repl|y$="N").|
|00000cb0| 04 d8 05 3a 0d 04 e2 10 | dd 20 f2 72 65 67 65 6e |...:....|. .regen|
|00000cc0| 64 76 61 6c 0d 04 ec 12 | 20 f2 65 6e 74 65 72 72 |dval....| .enterr|
|00000cd0| 65 67 6c 75 6d 70 0d 04 | f6 0e 20 f2 65 6e 74 65 |eglump..|.. .ente|
|00000ce0| 72 6e 70 61 0d 05 00 0f | 20 f2 65 6e 74 65 72 74 |rnpa....| .entert|
|00000cf0| 65 72 6d 0d 05 0a 0f 20 | f2 65 6e 74 65 72 72 61 |erm.... |.enterra|
|00000d00| 74 65 0d 05 14 12 20 69 | 3d 52 2f 28 6e 70 61 2a |te.... i|=R/(npa*|
|00000d10| 31 30 30 29 0d 05 1e 2d | 20 66 75 74 76 61 6c 3d |100)...-| futval=|
|00000d20| 28 28 28 28 31 2b 69 29 | 5e 28 79 65 61 72 2a 6e |((((1+i)|^(year*n|
|00000d30| 70 61 29 29 2d 31 29 2f | 69 29 2a 72 65 67 6c 61 |pa))-1)/|i)*regla|
|00000d40| 72 0d 05 28 17 20 6c 75 | 6d 70 73 75 6d 3d 72 65 |r..(. lu|mpsum=re|
|00000d50| 67 6c 61 72 2a 6e 70 61 | 0d 05 32 05 e1 0d 05 3c |glar*npa|..2....<|
|00000d60| 05 3a 0d 05 46 12 dd 20 | f2 72 65 67 69 6e 74 65 |.:..F.. |.reginte|
|00000d70| 72 65 73 74 0d 05 50 12 | 20 f2 65 6e 74 65 72 72 |rest..P.| .enterr|
|00000d80| 65 67 6c 75 6d 70 0d 05 | 5a 0e 20 f2 65 6e 74 65 |eglump..|Z. .ente|
|00000d90| 72 6e 70 61 0d 05 64 0f | 20 f2 65 6e 74 65 72 74 |rnpa..d.| .entert|
|00000da0| 65 72 6d 0d 05 6e 15 20 | f2 65 6e 74 65 72 66 75 |erm..n. |.enterfu|
|00000db0| 74 76 61 6c 28 31 30 29 | 0d 05 78 24 20 f1 8a 30 |tval(10)|..x$ ..0|
|00000dc0| 2c 32 32 29 22 43 6f 6d | 70 75 74 69 6e 67 2d 50 |,22)"Com|puting-P|
|00000dd0| 6c 65 61 73 65 20 57 61 | 69 74 22 3b 0d 05 82 18 |lease Wa|it";....|
|00000de0| 20 69 3d 30 3a 78 3d 66 | 75 74 76 61 6c 2f 72 65 | i=0:x=f|utval/re|
|00000df0| 67 6c 61 72 0d 05 8c 06 | 20 f5 0d 05 96 0f 20 20 |glar....| .....  |
|00000e00| 69 3d 69 2b 30 2e 30 30 | 35 0d 05 a0 1c 20 20 52 |i=i+0.00|5....  R|
|00000e10| 3d 69 2a 6e 70 61 2a 31 | 30 30 3a f1 8a 33 30 2c |=i*npa*1|00:..30,|
|00000e20| 32 33 29 3b 52 0d 05 aa | 20 20 20 79 3d 28 28 28 |23);R...|   y=(((|
|00000e30| 31 2b 69 29 5e 28 79 65 | 61 72 2a 6e 70 61 29 29 |1+i)^(ye|ar*npa))|
|00000e40| 2d 31 29 2f 69 0d 05 b4 | 10 20 fd 20 79 3d 78 20 |-1)/i...|. . y=x |
|00000e50| 84 20 79 3e 78 0d 05 be | 10 20 69 3d 69 2d 30 2e |. y>x...|. i=i-0.|
|00000e60| 30 30 35 30 31 0d 05 c8 | 06 20 f5 0d 05 d2 11 20 |00501...|. ..... |
|00000e70| 20 69 3d 69 2b 30 2e 30 | 30 30 30 35 0d 05 dc 1c | i=i+0.0|0005....|
|00000e80| 20 20 52 3d 69 2a 6e 70 | 61 2a 31 30 30 3a f1 8a |  R=i*np|a*100:..|
|00000e90| 33 30 2c 32 33 29 3b 52 | 0d 05 e6 20 20 20 79 3d |30,23);R|...   y=|
|00000ea0| 28 28 28 31 2b 69 29 5e | 28 79 65 61 72 2a 6e 70 |(((1+i)^|(year*np|
|00000eb0| 61 29 29 2d 31 29 2f 69 | 0d 05 f0 10 20 fd 20 79 |a))-1)/i|.... . y|
|00000ec0| 3d 78 20 84 20 79 3e 78 | 0d 05 fa 23 20 52 3d 69 |=x . y>x|...# R=i|
|00000ed0| 2a 6e 70 61 2a 31 30 30 | 3a 6c 75 6d 70 73 75 6d |*npa*100|:lumpsum|
|00000ee0| 3d 72 65 67 6c 61 72 2a | 6e 70 61 0d 06 04 05 e1 |=reglar*|npa.....|
|00000ef0| 0d 06 0e 05 3a 0d 06 18 | 11 dd 20 f2 72 65 67 73 |....:...|.. .regs|
|00000f00| 74 61 72 74 76 6c 0d 06 | 22 1d 20 66 6c 74 6e 3d |tartvl..|". fltn=|
|00000f10| 30 3a 64 65 66 6c 61 74 | 65 3d 30 3a 72 65 61 6c |0:deflat|e=0:real|
|00000f20| 52 3d 30 0d 06 2c 0e 20 | f2 65 6e 74 65 72 6e 70 |R=0..,. |.enternp|
|00000f30| 61 0d 06 36 0f 20 f2 65 | 6e 74 65 72 74 65 72 6d |a..6. .e|nterterm|
|00000f40| 0d 06 40 0f 20 f2 65 6e | 74 65 72 72 61 74 65 0d |..@. .en|terrate.|
|00000f50| 06 4a 15 20 f2 65 6e 74 | 65 72 66 75 74 76 61 6c |.J. .ent|erfutval|
|00000f60| 28 31 32 29 0d 06 54 12 | 20 69 3d 52 2f 28 6e 70 |(12)..T.| i=R/(np|
|00000f70| 61 2a 31 30 30 29 0d 06 | 5e 2d 20 72 65 67 6c 61 |a*100)..|^- regla|
|00000f80| 72 3d 66 75 74 76 61 6c | 2f 28 28 28 28 31 2b 69 |r=futval|/((((1+i|
|00000f90| 29 5e 28 79 65 61 72 2a | 6e 70 61 29 29 2d 31 29 |)^(year*|npa))-1)|
|00000fa0| 2f 69 29 0d 06 68 05 e1 | 0d 06 72 05 3a 0d 06 7c |/i)..h..|..r.:..||
|00000fb0| 0f dd 20 f2 6c 6d 70 70 | 72 69 6e 74 0d 06 86 2b |.. .lmpp|rint...+|
|00000fc0| 20 f1 22 4c 75 6d 70 73 | 75 6d 20 69 6e 76 65 73 | ."Lumps|um inves|
|00000fd0| 74 6d 65 6e 74 20 20 20 | 20 20 20 3d 20 a3 20 22 |tment   |   = . "|
|00000fe0| 6c 75 6d 70 73 75 6d 0d | 06 90 05 e1 0d 06 9a 05 |lumpsum.|........|
|00000ff0| 3a 0d 06 a4 0f dd 20 f2 | 72 65 67 70 72 69 6e 74 |:..... .|regprint|
|00001000| 0d 06 ae 2a 20 f1 22 52 | 65 67 75 6c 61 72 20 61 |...* ."R|egular a|
|00001010| 6d 6f 75 6e 74 20 69 6e | 76 65 73 74 65 64 20 3d |mount in|vested =|
|00001020| 20 a3 20 22 72 65 67 6c | 61 72 0d 06 b8 27 20 f1 | . "regl|ar...' .|
|00001030| 22 4e 75 6d 62 65 72 20 | 6f 66 20 64 65 70 6f 73 |"Number |of depos|
|00001040| 69 74 73 20 70 2e 61 2e | 20 3d 20 a3 20 22 6e 70 |its p.a.| = . "np|
|00001050| 61 0d 06 c2 2e 20 f1 22 | 41 6d 6f 75 6e 74 20 73 |a.... ."|Amount s|
|00001060| 61 76 65 64 20 70 2e 61 | 2e 20 20 20 20 20 20 20 |aved p.a|.       |
|00001070| 3d 20 a3 20 22 72 65 67 | 6c 61 72 2a 6e 70 61 0d |= . "reg|lar*npa.|
|00001080| 06 cc 05 e1 0d 06 d6 05 | 3a 0d 06 e0 1c dd 20 a4 |........|:..... .|
|00001090| 71 75 65 73 74 28 79 31 | 2c 79 32 2c 51 24 2c 64 |quest(y1|,y2,Q$,d|
|000010a0| 61 74 61 24 29 0d 06 ea | 09 20 ea 20 69 6e 0d 06 |ata$)...|. . in..|
|000010b0| f4 06 20 f5 0d 06 fe 15 | 20 20 f1 8a 30 2c 79 31 |.. .....|  ..0,y1|
|000010c0| 29 51 24 3b 64 61 74 61 | 24 0d 07 08 10 20 20 e8 |)Q$;data|$....  .|
|000010d0| 8a 79 32 2c 79 31 29 69 | 6e 0d 07 12 1a 20 20 e7 |.y2,y1)i|n....  .|
|000010e0| 20 69 6e 3d 30 20 8c 20 | 69 6e 3d bb 28 64 61 74 | in=0 . |in=.(dat|
|000010f0| 61 24 29 0d 07 1c 0b 20 | fd 20 69 6e 3e 30 0d 07 |a$).... |. in>0..|
|00001100| 26 09 3d 28 69 6e 29 0d | 07 30 05 3a 0d 07 3a 10 |&.=(in).|.0.:..:.|
|00001110| dd 20 f2 65 6e 74 65 72 | 74 65 72 6d 0d 07 44 5f |. .enter|term..D_|
|00001120| 20 74 31 3d 38 3a 74 32 | 3d 33 32 3a 71 24 3d 22 | t1=8:t2|=32:q$="|
|00001130| 45 6e 74 65 72 20 69 6e | 76 65 73 74 6d 65 6e 74 |Enter in|vestment|
|00001140| 20 74 65 72 6d 20 28 79 | 65 61 72 73 29 20 3f 20 | term (y|ears) ? |
|00001150| 22 3a 79 65 61 72 3d a4 | 71 75 65 73 74 28 74 31 |":year=.|quest(t1|
|00001160| 2c 74 32 2c 71 24 2c 79 | 65 61 72 24 29 3a 79 65 |,t2,q$,y|ear$):ye|
|00001170| 61 72 24 3d c3 28 79 65 | 61 72 29 0d 07 4e 05 e1 |ar$=.(ye|ar)..N..|
|00001180| 0d 07 58 05 3a 0d 07 62 | 10 dd 20 f2 65 6e 74 65 |..X.:..b|.. .ente|
|00001190| 72 72 61 74 65 0d 07 6c | 54 20 74 31 3d 31 30 3a |rrate..l|T t1=10:|
|000011a0| 74 32 3d 33 32 3a 71 24 | 3d 22 57 68 61 74 20 69 |t2=32:q$|="What i|
|000011b0| 73 20 74 68 65 20 72 61 | 74 65 20 6f 66 20 69 6e |s the ra|te of in|
|000011c0| 74 65 72 65 73 74 20 20 | 3f 20 22 3a 52 3d a4 71 |terest  |? ":R=.q|
|000011d0| 75 65 73 74 28 74 31 2c | 74 32 2c 71 24 2c 52 24 |uest(t1,|t2,q$,R$|
|000011e0| 29 3a 52 24 3d c3 28 52 | 29 0d 07 76 05 e1 0d 07 |):R$=.(R|)..v....|
|000011f0| 80 05 3a 0d 07 8a 10 dd | 20 f2 65 6e 74 65 72 63 |..:.....| .enterc|
|00001200| 6f 6d 70 0d 07 94 76 20 | f5 3a 74 31 3d 31 32 3a |omp...v |.:t1=12:|
|00001210| 74 32 3d 35 36 3a 71 24 | 3d 22 48 6f 77 20 6f 66 |t2=56:q$|="How of|
|00001220| 74 65 6e 20 69 73 20 74 | 68 65 20 69 6e 74 65 72 |ten is t|he inter|
|00001230| 65 73 74 20 63 6f 6d 70 | 6f 75 6e 64 65 64 20 69 |est comp|ounded i|
|00001240| 6e 20 61 20 79 65 61 72 | 20 28 31 2d 31 32 29 20 |n a year| (1-12) |
|00001250| 3f 20 22 3a 6e 3d a4 71 | 75 65 73 74 28 74 31 2c |? ":n=.q|uest(t1,|
|00001260| 74 32 2c 71 24 2c 6e 24 | 29 3a 6e 24 3d c3 28 6e |t2,q$,n$|):n$=.(n|
|00001270| 29 3a fd 20 6e 3c 3d 31 | 32 0d 07 9e 05 e1 0d 07 |):. n<=1|2.......|
|00001280| a8 05 3a 0d 07 b2 16 dd | 20 f2 65 6e 74 65 72 66 |..:.....| .enterf|
|00001290| 75 74 76 61 6c 28 79 31 | 29 0d 07 bc 85 20 74 31 |utval(y1|).... t1|
|000012a0| 3d 79 31 3a 74 32 3d 35 | 36 3a 71 24 3d 22 57 68 |=y1:t2=5|6:q$="Wh|
|000012b0| 61 74 20 69 73 20 65 78 | 70 65 63 74 65 64 20 66 |at is ex|pected f|
|000012c0| 75 74 75 72 65 20 76 61 | 6c 75 65 20 6f 66 20 69 |uture va|lue of i|
|000012d0| 6e 76 65 73 74 6d 65 6e | 74 20 61 74 20 65 6e 64 |nvestmen|t at end|
|000012e0| 20 6f 66 20 74 65 72 6d | 20 a3 20 22 3a 66 75 74 | of term| . ":fut|
|000012f0| 76 61 6c 3d a4 71 75 65 | 73 74 28 74 31 2c 74 32 |val=.que|st(t1,t2|
|00001300| 2c 71 24 2c 66 75 74 76 | 61 6c 24 29 3a 66 75 74 |,q$,futv|al$):fut|
|00001310| 76 61 6c 24 3d c3 28 66 | 75 74 76 61 6c 29 0d 07 |val$=.(f|utval)..|
|00001320| c6 05 e1 0d 07 d0 05 3a | 0d 07 da 0f dd 20 f2 65 |.......:|..... .e|
|00001330| 6e 74 65 72 6e 70 61 0d | 07 e4 5b 20 74 31 3d 36 |nternpa.|..[ t1=6|
|00001340| 3a 74 32 3d 33 32 3a 71 | 24 3d 22 45 6e 74 65 72 |:t2=32:q|$="Enter|
|00001350| 20 6e 75 6d 62 65 72 20 | 6f 66 20 64 65 70 6f 73 | number |of depos|
|00001360| 69 74 73 20 70 2e 61 2e | 20 20 20 22 3a 6e 70 61 |its p.a.|   ":npa|
|00001370| 3d a4 71 75 65 73 74 28 | 74 31 2c 74 32 2c 71 24 |=.quest(|t1,t2,q$|
|00001380| 2c 6e 70 61 24 29 3a 6e | 70 61 24 3d c3 28 6e 70 |,npa$):n|pa$=.(np|
|00001390| 61 29 0d 07 ee 05 e1 0d | 07 f8 05 3a 0d 08 02 10 |a)......|...:....|
|000013a0| dd 20 f2 65 6e 74 65 72 | 6c 75 6d 70 0d 08 0c 6b |. .enter|lump...k|
|000013b0| 20 74 31 3d 36 3a 74 32 | 3d 33 32 3a 71 24 3d 22 | t1=6:t2|=32:q$="|
|000013c0| 45 6e 74 65 72 20 6c 75 | 6d 70 20 73 75 6d 20 74 |Enter lu|mp sum t|
|000013d0| 6f 20 62 65 20 69 6e 76 | 65 73 74 65 64 20 a3 20 |o be inv|ested . |
|000013e0| 22 3a 6c 75 6d 70 73 75 | 6d 3d a4 71 75 65 73 74 |":lumpsu|m=.quest|
|000013f0| 28 74 31 2c 74 32 2c 71 | 24 2c 6c 75 6d 70 73 75 |(t1,t2,q|$,lumpsu|
|00001400| 6d 24 29 3a 6c 75 6d 70 | 73 75 6d 24 3d c3 28 6c |m$):lump|sum$=.(l|
|00001410| 75 6d 70 73 75 6d 29 0d | 08 16 05 e1 0d 08 20 05 |umpsum).|...... .|
|00001420| 3a 0d 08 2a 13 dd 20 f2 | 65 6e 74 65 72 72 65 67 |:..*.. .|enterreg|
|00001430| 6c 75 6d 70 0d 08 34 1d | 20 66 6c 74 6e 3d 30 3a |lump..4.| fltn=0:|
|00001440| 64 65 66 6c 61 74 65 3d | 30 3a 72 65 61 6c 52 3d |deflate=|0:realR=|
|00001450| 30 0d 08 3e 67 20 74 31 | 3d 34 3a 74 32 3d 33 32 |0..>g t1|=4:t2=32|
|00001460| 3a 71 24 3d 22 45 6e 74 | 65 72 20 72 65 67 75 6c |:q$="Ent|er regul|
|00001470| 61 72 20 61 6d 6f 75 6e | 74 20 69 6e 76 65 73 74 |ar amoun|t invest|
|00001480| 65 64 20 a3 20 22 3a 72 | 65 67 6c 61 72 3d a4 71 |ed . ":r|eglar=.q|
|00001490| 75 65 73 74 28 74 31 2c | 74 32 2c 71 24 2c 72 65 |uest(t1,|t2,q$,re|
|000014a0| 67 6c 61 72 24 29 3a 72 | 65 67 6c 61 72 24 3d c3 |glar$):r|eglar$=.|
|000014b0| 28 72 65 67 6c 61 72 29 | 0d 08 48 05 e1 0d 08 52 |(reglar)|..H....R|
|000014c0| 05 3a 0d 08 5c 0c dd 20 | f2 74 69 74 6c 65 0d 08 |.:..\.. |.title..|
|000014d0| 66 07 20 ef 35 0d 08 70 | 17 20 c8 93 20 31 30 2c |f. .5..p|. .. 10,|
|000014e0| 38 32 30 2c 31 32 36 30 | 2c 31 36 30 0d 08 7a 17 |820,1260|,160..z.|
|000014f0| 20 ef 32 33 2c 31 37 2c | 37 2c 36 2c 38 3b 31 36 | .23,17,|7,6,8;16|
|00001500| 3b 30 3b 0d 08 84 0e 20 | ec 20 34 32 30 2c 39 32 |;0;.... |. 420,92|
|00001510| 30 0d 08 8e 24 20 f1 22 | 43 4f 4d 50 4f 55 4e 44 |0...$ ."|COMPOUND|
|00001520| 20 49 4e 54 45 52 45 53 | 54 20 43 41 4c 43 55 4c | INTERES|T CALCUL|
|00001530| 41 54 4f 52 22 0d 08 98 | 07 20 ef 34 0d 08 a2 06 |ATOR"...|. .4....|
|00001540| 20 e1 0d 08 ac 06 20 3a | 0d 08 b6 04 0d ff       | ..... :|......  |
+--------+-------------------------+-------------------------+--------+--------+